home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Utilities / Print / Postscript / DistillPS 3.0b1 / still.ps < prev   
Encoding:
Text File  |  1989-02-28  |  60.8 KB  |  5 lines  |  [TEXT/unix]
  1. %!PS-Adobe-2.1
  2. %%Title: still.ps
  3. %%Creator: Glenn Reid, Adobe Systems <adobe!greid@decwrl.dec.com>
  4. %%CreationDate:    greid Wed Jul  6 18:02:53 1988 EDIT: Tue Feb 28 10:24:40 1989
  5. %%VMUsage: 40696
  6. %%EndComments
  7.  
  8. % Notice: Copyright 1988 1989 Adobe Systems Incorporated.  All Rights Reserved.
  9.  
  10.  
  11. /adobe_distill 155 200 add dict def    % 155 required by still.ps
  12. /adobe_still_version ((V 1.0d release 9 edit 06)) def
  13.  
  14. % options:
  15. /debug true def            % generate debugging messages
  16. /messages false def        % generate more debugging messages (verbose!)
  17. /trace true  def        % print tracing messages like "page: 3"
  18. /substitutefonts true def    % substitute fonts if guess_font fails....
  19. /includeuserfonts true def    % copy embedded user-defined fonts to output?;
  20. /printpages false def        % do you want the pages to print?
  21. /optimize true def        % optimize "show" to "widthshow", etc.
  22. /tolerance .05 def        % for "approximately equal to" operations
  23. /cachedir 60 dict def        % how many font dicts to cache (optimization)
  24.  
  25. % 
  26. % HOW TO USE: [see section below]
  27. %
  28. % OVERVIEW:
  29. %    This is a meta-utility program that "distills" any PostScript
  30. %    language program into a simpler one.  The resulting program
  31. %    will print exactly the same page as the original, but all
  32. %    unnecessary execution overhead is eliminated and the file is
  33. %    clean, uniform, and fast.
  34. %
  35. % RELEASE NOTES: [recent changes and details]
  36. %    First public release: 2/10/89
  37. %    Second release: 2/17/89
  38. %        - reimplemented guess_font routines
  39. %        - added support for color; not careful about RGB->CMYK->RGB
  40. %        - added selective printing of pages during distill
  41. %    Third release: ???
  42. %        - fixed color-induced [major efficiency loss] bug
  43. %        - produces %%BoundingBox and %%PageBoundingBox info (atend)
  44. %        - works better (bugs fixed) on rotated (landscape) documents
  45. %
  46. % MANY USES:
  47. %    * If you archive documents in PostScript format, they can be
  48. %      made as compact and efficient as possible by distilling them.
  49. %    * As a development tool, you can see what your program is
  50. %      really doing, and how simple and fast the driver could be.
  51. %    * Distilled files can be used as an interchange format,
  52. %      since arbitrary PostScript files can be converted to this
  53. %      uniform representation.
  54. %    * If your program can parse these files, then any arbitrary
  55. %      PostScript program can be used as input after distilling.
  56. %    * Many others.
  57. %
  58. % FEATURES:
  59. %    * correctly distills arbitrarily complex PostScript programs
  60. %    * output is universal, simple, and in default user coordinates
  61. %    * handles "charpath", "image", "imagemask", "awidthshow", etc.
  62. %    * correctly follows "save", "restore", "gsave", "grestore"
  63. %    * re-encodes fonts automatically to match application encoding
  64. %    * reduces prologue size to only about 25-30 lines
  65. %    * For machine-generated code:
  66. %        * output files are almost always SMALLER than original files
  67. %         * output files are almost always FASTER than original files
  68. %    * optimizes "show" to use "widthshow" whenever possible.
  69. %    * uses save/restore at page boundaries
  70. %    * observes structuring conventions and page independence
  71. %    * caches font dictionaries instead of repeating "findfonts"
  72. %    * output is normally VERY, VERY fast.
  73. %
  74. % HOW TO USE:
  75. %    This program redefines a bunch of operators, and is invoked
  76. %    with the word "distill".  This file has to precede the job it is
  77. %    distilling, and you have to invoke it by calling "distill".
  78. %
  79. %    PRINTERS:
  80. %        In general, start with this file (still.ps), add the word
  81. %        "distill" at the end (to invoke the procedure), and tack
  82. %        any PostScript language file onto the end.  Send this to
  83. %        your favorite PostScript printer with an appropriate
  84. %        end-of-file indication at the end.  Results will
  85. %        be returned across communication channel.
  86. %
  87. %    INTERPRETERS: if you have an interpreter with a file system
  88. %        handy, first type "(still.ps) run" to load this file, then
  89. %        distill your file like this: "(prog.ps) distill".  It will
  90. %        write the results in "prog.psx" (appends an x to the file
  91. %        name you give it).
  92. % 
  93. %    MACINTOSH: I have written a small Mac utility that is called
  94. %        "DistillPS" (an adaptation of "SendPS") that will perform the
  95. %        above PRINTER steps for you.  If you are an Adobe registered
  96. %        developer, you can get a copy directly from Adobe.
  97. %
  98. % BACKGROUND
  99. % The basic idea is to execute the input file completely, with all of
  100. % the painting operators redefined.  When one of these operators is
  101. % called by the client program, the distillery will write the
  102. % path the output file (with all coordinates normalized to the default
  103. % userspace coordinate system).
  104. % 
  105. % The routines in this file are broken down into several areas.  Most
  106. % of them are concerned with writing things to the output file,
  107. % actually, although there are two other interesting areas.  The first
  108. % are the graphics state procedures, which attempt to keep track of the
  109. % graphics state and, when a painting op is called, it writes out any
  110. % changes to the graphics state since the last time it was called.  This
  111. % keeps each painting op from having to write gstate itself.  The other
  112. % interesting procs are simply the redefinitions of the painting ops
  113. % themselves.
  114. %
  115. % KNOWN COMPATIBLE PROGRAMS
  116. % The following applications have been tested (with some version of the
  117. % driver, at least), successfully:
  118. %    Lotus Manuscript
  119. %    Macintosh "LaserPrep" (all documents, I think)
  120. %    DEC's VaxDocument
  121. %    Scribe
  122. %    PageMaker
  123. %    Frame Maker
  124. %    Adobe Illustrator
  125. %    TranScript (ditroff and enscript drivers)
  126. %
  127. % KNOWN PROBLEMS:
  128. %    Clipping isn't handled correctly.
  129. %
  130. %    Rotated text with "charpath" isn't working quite right.
  131. %
  132. %    I'm not convinced that the bounding box for images is right.
  133. %
  134. %    Hand-written PostScript language programs (especially those
  135. %    that take advantage of looping constructs) will get BIGGER
  136. %    when you distill them, because the Distillery unrolls all loops.
  137. %    It is really intended for machine-generated files, but it should
  138. %    still work on programs tightly coded by hand (like Cookbook
  139. %    examples).
  140. %
  141. %    Use of the "put" and "putinterval" operators to overwrite
  142. %    string bodies can confuse the optimization technique.  If you
  143. %    see strange output (wrong characters printed, especially),
  144. %    try changing "/optimize true def" to "/optimize false def"
  145. %    at the very beginning of this program.
  146. %
  147. %    Programs that use the "transform" operator to make resolution-
  148. %    rounding decisions may have the output file bound to a specific
  149. %    resolution.  The last ProcSet (called "hacks") redefines a few
  150. %    operators to try to work around this.  Output file is still
  151. %    device-independent in any case, but might look different.
  152. %
  153. %    Distillery relies on bug in save/restore related to string bodies
  154. %    to preserve some information across save/restore.  Localized
  155. %    to the "adobe_staticvar" procedure set.
  156. %
  157. %    In order to optimize re-encoding of fonts, the distillery takes
  158. %    an educated guess that the first re-encoded font it sees will
  159. %    have a representative encoding vector ("stdvec").  If this
  160. %    first font is not encounterd before other marks are made, the encoding
  161. %    vector cannot be produced in the %%BeginSetup section, and the still
  162. %    is forced to repeat the vector every time a font is used.  Work
  163. %    is in progress on a heuristic to improve this.
  164. %
  165. %       In order to avoid building up the dictionary stack during
  166. %       execution, all definitions are made in one dictionary
  167. %       (PROLOGUE) and it is not explicitly brought to the top of
  168. %       the dictionary stack for each operation (to avoid
  169. %       "dictstackoverflow" errors).  Most of the identifiers have
  170. %       been chosen to be reasonably unique, but there could be a
  171. %       conflict if user programs use the same names.
  172. %
  173. %    Sometimes generates unnecessarily verbose code in the presence
  174. %    of lots of save/restores in original file.  Try distilling the
  175. %    output a second time to improve this (like whiskey)....
  176. %
  177. %    Some of the ProcSets depend on each other in weird ways, which
  178. %    is definitely wrong, since only the script should depend on
  179. %    the procset definitions.  Eventually this will get fixed.
  180. %
  181. %    Does not always work correctly with user-defined fonts, especially
  182. %    those defined by the standard TeX driver (unfortunately).  In
  183. %    particular, TeX bitmap fonts that are defined and have characters
  184. %    added on the fly are almost impossible to make sense of with this
  185. %    distillery approach.
  186.  
  187. %%BeginProcSet: distill_defs 1.0 0
  188. /setpacking where { pop currentpacking true setpacking } if
  189. /firstmtx matrix currentmatrix def
  190.  
  191. /bdef { bind def } bind def
  192.  
  193. /ifnotdef { %def
  194.   % only does the "def" if the key has not already been defined:
  195.     1 index where { pop pop pop }{ def } ifelse
  196. } bdef
  197.  
  198. /*flushfile /flushfile load ifnotdef
  199.  
  200. printpages not { %if
  201.     /showpage { erasepage initgraphics } bind def
  202. } if
  203.  
  204. /currentcmykcolor where { pop }{ %else
  205.     /currentcmykcolor { %def
  206.         currentrgbcolor 3 { 1 exch sub 3 1 roll } repeat 0
  207.     } bind def
  208. } ifelse
  209.  
  210. /setpacking where { pop setpacking } if
  211. %%EndProcSet
  212.  
  213. %%BeginProcSet: Adobe_staticvar 1.0 0
  214.     % this procedure set implements the "magic" stuff to hide numbers
  215.     % and other things where they will not be subject to save/restore
  216.     /magicval { 8 string } bdef
  217.     /hideval { %def    % /name int :    % "hideval" uses save/restore bug!
  218.     exch load dup 0 (\040\040\040\040\040\040\040\040) putinterval
  219.     exch (\040\040\040\040\040\040\040\040) cvs
  220.     dup length 8 exch sub exch putinterval
  221.     } bdef
  222.     /magicbool { 5 string } bdef
  223.     /hidebool { %def    % /name int :    % "hideval" uses save/restore bug!
  224.     exch load dup 0 (\040\040\040\040\040) putinterval
  225.     exch (\040\040\040\040\040) cvs 0 exch putinterval
  226.     } bdef
  227.     /cvnum { cvx exec } bdef    % makes hidden val back into an integer
  228.     /cvbool { cvx exec } bdef    % makes hidden val back into a boolean
  229.     /hidefontname { %def
  230.     % hides a font name in a string body, for use in %%DocumentFonts
  231.     scratch cvs
  232.     % look to see if it is already in the docfonts string:
  233.     % lots of hacks to search for (FontName\n), not just (FontName)
  234.     save    % cause we're using memory for temporary string
  235.         adobe_distill begin
  236.         1 index length 1 add string /tmpstring exch def
  237.         tmpstring dup length 1 sub (\040) 0 get put
  238.         tmpstring 0 3 index putinterval
  239.         pagefonts tmpstring search {pop pop pop false}{pop true} ifelse
  240.         docfonts tmpstring search {pop pop pop false}{pop true}ifelse
  241.         end
  242.     3 -1 roll restore        % roll save object past booleans
  243.  
  244.     % first deal with docfonts, then with pagefonts booleans
  245.     { %ifelse
  246.         exch    % extra boolean for page fonts
  247.         dup dfontcount cvnum 1 index length add 1 add
  248.         docfonts length lt {
  249.         dup docfonts exch dfontcount cvnum exch putinterval
  250.         length 1 add dfontcount cvnum add /dfontcount exch hideval
  251.         docfonts dfontcount cvnum 1 sub (\040) putinterval
  252.         }{ %else
  253.         pop (% No more room for fonts in document font list\n) d=
  254.         } ifelse
  255.         messages { %if
  256.         (document fonts: ) print
  257.         docfonts 0 dfontcount cvnum getinterval = flush
  258.         } if
  259.         exch % page font boolean still on stack, under "dup"ed string
  260.     }{ } ifelse
  261.     { %ifelse
  262.         pfontcount cvnum 1 index length add 1 add
  263.         pagefonts length lt {
  264.         dup pagefonts exch pfontcount cvnum exch putinterval
  265.         length 1 add pfontcount cvnum add /pfontcount exch hideval
  266.         pagefonts pfontcount cvnum 1 sub (\040) putinterval
  267.         }{ %else
  268.         pop (% No more room for fonts in page font list\n) d=
  269.         } ifelse
  270.         messages { %if
  271.         (page fonts: ) print
  272.         pagefonts 0 pfontcount cvnum getinterval = flush
  273.         } if
  274.     }{ pop } ifelse
  275.     } bdef
  276. %%EndProcSet: Adobe_staticvar 1.0 0
  277.  
  278. %%BeginProcSet: distill 1.0 0
  279. /setpacking where { pop currentpacking true setpacking } if
  280.  
  281. /adobe_distill dup where { pop pop }{ 165 200 add dict def } ifelse
  282.  
  283. % some variables
  284.     % magic variables depending on "hideval", not subject to save/restore
  285.     /pagecount magicval def    /pagecount 1 hideval
  286.     /beginsetup magicbool def    /beginsetup true hidebool
  287.     /lastshowpage magicbool def    /lastshowpage false hidebool
  288.     /begunpage magicbool def    /begunpage false hidebool
  289.  
  290.     /dfontcount magicval def     /dfontcount 0 hideval
  291.     /pfontcount magicval def    /pfontcount 0 hideval
  292.     /docfonts 40 30 mul string def        % room for 40 30-byte font names
  293.     /pagefonts 40 30 mul string def        % room for 40 30-byte font names
  294.     /LLx magicval def        /LLx 10000 hideval
  295.     /LLy magicval def        /LLy 10000 hideval
  296.     /URx magicval def        /URx -10000 hideval
  297.     /URy magicval def        /URy -10000 hideval
  298.     /docLLx magicval def    /docLLx 10000 hideval
  299.     /docLLy magicval def    /docLLy 10000 hideval
  300.     /docURx magicval def    /docURx -10000 hideval
  301.     /docURy magicval def    /docURy -10000 hideval
  302.  
  303.     /optim optimize def
  304.     /scratch 128 string def
  305.     /fontcount 0 def
  306.     /indentlevel 0 def
  307.     /ANYtype null def
  308.     /insideproc false def
  309.     /Dfont null def
  310.     /Ffont null def
  311.     /Fname null def
  312.     /lastshow false def
  313.     /imageproc null def
  314.     /imagematrix null def
  315.     /imagedepth null def
  316.     /imageheight null def
  317.     /imagewidth null def
  318.  
  319. % a few of them go into userdict:
  320. /cvp {
  321.     messages { % ifelse
  322.     (                     ) cvs print (\040) print
  323.     }{ pop } ifelse
  324. } bdef
  325. /pr= { messages { print }{ pop } ifelse } bdef
  326. /d= { messages { = }{ pop } ifelse } bdef
  327.  
  328. /distill {
  329.     adobe_distill begin
  330.     debug{(%!PS-Adobe-2.1 debug version ) print adobe_still_version == }if
  331.     userdict /orig_dictcount countdictstack put
  332.     count 0 eq { %ifelse
  333.         /OUTfile (%stdin) def
  334.         /fd (%stdout) (w) file def
  335.         initstill
  336.         writeprologue
  337.         initgstate
  338.         currentfile cvx exec
  339.         writetrailer
  340.     }{ %else
  341.         initgraphics
  342.         /saveall save def
  343.         /INfile exch def
  344.         /OUTfile INfile length 1 add string def
  345.         OUTfile 0 INfile putinterval
  346.         OUTfile dup length 1 sub (x) 0 get put
  347.         trace { (output file: ) print OUTfile = } if
  348.         /outfile OUTfile (w) file def
  349.         /fd /outfile load def
  350.         initstill
  351.         writeprologue
  352.         initgstate
  353.         debug { %ifelse
  354.             INfile run
  355.         }{ % else
  356.             { INfile run } stopped { % if
  357.              errordict begin $error begin
  358.                 (\n%%[Error: ) wout
  359.                 /errorname load =string cvs wout
  360.                 (; OffendingCommand: ) wout
  361.                 /command load =string cvs wout (]%%) wout writeNL
  362.                 (STACK:) writeop /ostack load type /arraytype eq {
  363.                 ostack { =string cvs writeop } forall
  364.                 } if
  365.                 fd systemdict /flushfile get exec
  366.                 handleerror
  367.             end end
  368.             } if
  369.         } ifelse
  370.         writetrailer
  371.         fd closefile
  372.         countdictstack orig_dictcount sub { end } repeat
  373.         clear
  374.         saveall { restore } stopped { %if
  375.         trace { (couldn't restore after distill.) = } if
  376.         } if
  377.     } ifelse
  378.    end
  379. } bdef
  380.  
  381. % the rest of them go in "adobe_distill"
  382. adobe_distill begin
  383. %     /stopped {
  384. %     (stopped: ) print dup ==
  385. %     exec false
  386. %     } bdef
  387.  
  388.     /initstill {
  389.     /beginsetup true hidebool
  390.     /lastshowpage false hidebool
  391.     /begunpage false hidebool
  392.     /pagecount 1 hideval
  393.     /STDvec 0 hideval
  394.     /PAGEvec 0 hideval
  395.     /dfontcount 0 hideval
  396.     /pfontcount 0 hideval
  397.     /LLx 10000 hideval  /LLy 10000 hideval
  398.     /URx -10000 hideval /URy -10000 hideval
  399.     /docLLx 10000 hideval  /docLLy 10000 hideval
  400.     /docURx -10000 hideval /docURy -10000 hideval
  401.     /SharedFontDirectory where { %ifelse
  402.         /SharedFontDirectory get
  403.     }{ /FontDirectory load } ifelse
  404.     /FontDirectory exch def
  405.     0 1 pagefonts length 1 sub { pagefonts exch 0 put } for
  406.     0 1 docfonts length 1 sub { docfonts exch 0 put } for
  407.     } bdef
  408.     debug { %if
  409.     /BB {
  410.         debug {
  411.         (% BBox: ) print
  412.         LLx print ( ) print LLy print ( ) print
  413.         URx print ( ) print URy print () = flush
  414.         (% DocBBox: ) print
  415.         docLLx print ( ) print docLLy print ( ) print
  416.         docURx print ( ) print docURy print () = flush
  417.         } if
  418.     } bdef
  419.     } if
  420.     /?box { %def    % X Y
  421.     dup URy cvnum gt { dup /URy exch cvi hideval } if
  422.     dup LLy cvnum lt { dup /LLy exch cvi hideval } if pop
  423.     dup URx cvnum gt { dup /URx exch cvi hideval } if
  424.     dup LLx cvnum lt { dup /LLx exch cvi hideval } if pop
  425.     } bdef
  426.     /doc?box {
  427.     dup docURy cvnum gt { dup /docURy exch cvi hideval } if
  428.     dup docLLy cvnum lt { dup /docLLy exch cvi hideval } if pop
  429.     dup docURx cvnum gt { dup /docURx exch cvi hideval } if
  430.     dup docLLx cvnum lt { dup /docLLx exch cvi hideval } if pop
  431.     } bdef
  432.     /pageBBox-docBBox {
  433.     LLx cvnum LLy cvnum doc?box
  434.     URx cvnum URy cvnum doc?box
  435.     } bdef
  436.     /writeRmove { %def
  437.     2 copy lineY sub exch lineX sub exch
  438.     dup 0.0 eq { pop writenum (x) writeop }{ %ifelse
  439.         1 index 0.0 eq { writenum (y) writeop pop }{ %ifelse
  440.         writepair (r) writeop
  441.         } ifelse
  442.     } ifelse
  443.     2 copy ?box
  444.     /lineY exch store /lineX exch store
  445.     } bdef
  446.     /writelines { %def
  447.     counttomark REPEAT_LINETO_THRESHOLD gt { % ifelse
  448.         counttomark /lcount exch store
  449.         lcount -2 2 { %for
  450.         dup /rcount exch store
  451.         -2 roll 2 copy lineY sub exch lineX sub exch 4 -2 roll
  452.         2 copy ?box
  453.         /lineY exch store /lineX exch store
  454.         rcount 2 roll
  455.         } for
  456.         lcount 2 idiv { writepair writeNL } repeat
  457.         lcount 2 idiv writenum (R) writeop
  458.     }{ % else
  459.         counttomark -2 2 { -2 roll writeRmove } for
  460.     } ifelse
  461.     } bdef
  462.     /writepath {
  463.     /closed false store
  464.     % optimize special case of just "moveto lineto stroke"
  465.     mark
  466.     % pathforall
  467.     { counttomark 2 gt { cleartomark false exit } if thruCTM true }
  468.     { counttomark 5 gt { cleartomark false exit } if thruCTM true }
  469.     { cleartomark false exit }
  470.     { cleartomark false exit }
  471.     pathforall { %ifelse
  472.         counttomark 5 ne { %ifelse
  473.         % degenerate case...
  474.         ischarpath counttomark 2 eq and {    % just moveto
  475.             2 copy ?box
  476.             writepair (m) writeop
  477.         } if
  478.         cleartomark
  479.         }{ %else
  480.         3 -1 roll pop
  481.         /?simplepath true store
  482.         simplepath astore pop
  483.         pop %mark
  484.         } ifelse
  485.     }{ %else
  486.         /?simplepath false store
  487.         mark
  488.         { % moveto
  489.         closed { (cp ) wout /closed false store } if
  490.         counttomark 2 gt { %if
  491.             counttomark 1 add 2 roll writelines 3 1 roll
  492.         } if
  493.         2 copy thruCTM /lineY exch store /lineX exch store
  494.         2 copy ?box
  495.         writeTpair (m) writeop
  496.         } % moveto proc
  497.         { %lineto proc
  498.         thruCTM count 490 gt { writelines } if
  499.         } % lineto
  500.         { % curveto
  501.         counttomark 6 gt { %if
  502.             counttomark 1 add 6 roll writelines 7 1 roll
  503.         } if
  504.         2 copy thruCTM /lineY exch store /lineX exch store
  505.         3 { %repeat
  506.             6 -2 roll 2 copy thruCTM
  507.             2 copy ?box
  508.             exch writenum writenum
  509.         } repeat (c) writeop 6 {pop} repeat
  510.         } % curveto
  511.         { % closepath
  512.         counttomark 0 gt { writelines } if
  513.         /closed true store
  514.         } % closepath
  515.         pathforall
  516.         counttomark 0 gt { writelines } if
  517.         pop %mark
  518.     } ifelse
  519.     } bdef
  520.     /hashpath { %def
  521.       % manufacture a [fairly] unique integer to represent a path:
  522.     -1                % initial value
  523.     { .5 add add 2 div add }    % moveto
  524.     { add sub }            % lineto
  525.     { add add sub add add add }    % curveto
  526.     { 1 add }            % closepath
  527.     pathforall
  528.     dup 100 lt { 10 mul truncate 10 div } if
  529.     } bdef
  530.     "hashencoding { %def
  531.    ñ  % manufacture a [f‰irly] unique integer for an encoding vector,
  532.       % by alternately adding then subtracting the length of the name.
  533.       % The alternation makes reordered lists with same names still come out
  534.       % with a different hash value (the "-1 exch" and the "mul" do this)
  535.     -1 exch 0 exch            % initial value: 0
  536.     { % forall
  537.         dup type /nametype eq { length }{ pop 1 } ifelse
  538.         2 index mul add    % multiply by 1 or -1 and add
  539.         exch -1 mul exch    % flip 1 and -1
  540.     } forall
  541.     exch pop            % get rid of -1, leave hash val
  542.     } bdef
  543.     /STDvec magicval def /STDvec 0 hideval
  544.     /PAGEvec magicval def /PAGEvec 0 hideval
  545.     /enc1 null def /enc2 nulÏ def
  546.   xø/diffencoding { %def
  547.     % check the "top128" boolean to see if itßs wort¡reencoding the‹:    /enc2ë∏xch store /enc1 exch st¯re    % eoc2 is tfle new oπ
  548.     [/
  549.         32 1=127 { %˜≈r                %%0 1 255S?
  550.         du¶/dup enf2 exch g|t exchoÌnc1 excl get
  551.     ± index ¯q { po¿ pop } f
  552.         }∫for
  553.     ]8   } b'ef
  554.     /8ndent %indentûevel { fd (  ) íritestrQ}  } ep}at } b|Âf
  555.     £A+ {∞`up load 1P∫dd sto≈e } b    ef
  556.     /-ØW{ dup Ëèad dmP 1 ge { ¿ sub } q stoRe } bdef
  557. O1nd %ad Ôe_diªtill
  558. &setΔ9cking w⁄ere Œƒpop setp⁄Oking } if
  559. %%∞ÓdProcSetêú%%BeÁinHrocS±x: distilQíwritetofile 1N0 0
  560. /setûNckin· where…aøpop curr¸∂tpac◊ing truø∏setpackinQ } iF
  561. /adobe≤distill du\ wher { popop }{ 165ø200 yd dictŒ—ef } ifelse
  562. adÂbe_dist‰Öl begij
  563.  ,  /wOitetrai¡år { %def    % :
  564.     ptackptrøÜ ne { {tÈckshoÜ’} if
  565.     
  566. gunpagkòcvbool ‰ %if
  567.     YB  lastsrowpageÍcvbool nt { %iÊi        ( /snlwpage ∫… def) witeop
  568. ôp   } if$        p¸gecountÚ!vnum scratch cVw wout 
  569. KENDPAGE\n) wouy
  570.         (H%PageTrailer) wìteop
  571.     õZ  (%%PageFontsÏ“) wout∞        pfontcountZcvnum 0 Fq { writeNL }{Ûñelse
  572.         pfontcount cvnuÓó200 lt „ %ifelse
  573.            pagefonts 0 pfontcount cvnum getinterval writ÷op
  574.         }{ %else
  575.             pag˙fonts (\040) seCrch not√{ writeop }{ %eåse
  576.             wÎuteop    % first one withoˆ the %%+
  577.             { %loop
  578.         °   search { (%%Æ ) wou@øwriteoå }{ %else
  579.                 (€L00) search { writeop pBs pop }~ pop } pfelse
  580.     º¥    exit
  581.                 } ifelse
  582. ˆ6    } looâ
  583.             } ifelseg~    } ifelse
  584.         0 1öpfontc_unt cvnuÌ { pagefonts ex‚h 0 put } for
  585.     /pfontcˇuntH0 hideval
  586. ß    } ifälse
  587.      ò  LLx 1R000 eq LLy 1000’ eq or
  588. û   URx…-10000 ù URy -\ä000 eq or or nOt {
  589.         (Z    PageoundingBoÒø ) wou˜          LLx cvnum ü
  590. itenum 9Ly cÓnum writeÖtm
  591.           5Rx cvçm writenV. URy cv≈um wrjtenum wr1•eNL
  592.         } ia≈        pagt|Box-docGBox
  593. ¢} if
  594.     (%%ï,ailer) writeh
  595.     (end %1ROLOGHE) writAp
  596.     (%%Pa    #s: ) wout ÑaC*count cvnäm writenum w^iteNL
  597.     (%%?oundiˆgBox: c wout
  598.       dÇcLLx cvnum w!¨tenum docLLy cnum writPnum
  599.      #docURx »vnum wriÈ2num dxcURy cvƒum writºúum wri†eNL
  600.     (%ƒXocumenFonts: )#wout
  601.     Ô#ontcount cvnum!0 eq { ïPiteNL }{ %else’        dfbqtcount ¨vnum v00 lt { áIfelse
  602.         docfonus 0 dfotcount cvnum geDinterva
  603. Fwriteop
  604.         }Í%else
  605.         docfonts (\040'≈search]åot { writeop }{ %else
  606.             writeop    % first one without the %%+
  607.             { %loop
  608.             search { (%%+ ) wout writeop }{ %else
  609.                 (\000) search { writeop pop pop }{ pop } ifelse
  610.                 exit
  611.             } ifelse
  612.             } loop
  613.         } ifelse
  614.         } ifelse
  615.     } ifelse
  616.     (%%EOF) writeop
  617.     } bdef
  618.     /writecomments { %def
  619.     fd (%!PS-Adobe-2.1\n) writestring
  620.     fd (%%Title: ) writestring fd OUTfile writestring fd (\n) writestring
  621.     fd (%%Creator: Glenn Reid and still.ps ) writestring
  622.     fd adobe_still_version writestring fd (\n) writestring
  623.     fd (%%BoundingBox: (atend)\n) writestring
  624.     fd (%%Pages: (atend)\n) writestring
  625.     fd (%%DâcumentProcSets: Adobe_distill 0.906\n) writestring
  626.     fd (%%EndComments\n) #ritestring
  627.     } bdef
  628.     /writeprologue { %def    % :
  629.     writecomments
  630.     mark
  631.     (%%BeginProcSet: Adobe_distill 0.906)
  632.     (/PROLOGU˙ 30 40 add dict def)
  633.     (  30 procedure entries + room for 40 cached font dictionaries)
  634.     ( PROLOGUE begin)
  635.     ( /clip { } def    % causes problems. remove if "clip" is needed)
  636.     ( /bdef { bind def } bind def    /ldef { load def } bdef)
  637.     ( /T { moveto show } bdef    /A { moveto ashow } bdef)
  638.     ( /W { moveto widthshow } bdef    /AW { moveto awidthshow } bdef)
  639.     ( /f /fill ldef            /R { { rlineto } repeat } bdef)
  640.     ( /r /rlineto ldef        /L { { lineto } repeat } bdef)
  641.     ( /m /moveto ldef        /l { moveto lineto stroke } bdef)
  642.     ( /x { 0 rlineto } bdef        /y { 0 exch rlineto } bdef)
  643.     ( /c /curveto ldef        /cp /closepath ldef)
  644.     ( /s /stroke ldef        /w /setlinewidth ldef)
  645.     ( /g /setgray ldef        /j /setlinejoin ldef)
  646.     ( /d /setdash ldef        /F /setfont ldef)
  647.     ( /C /setcmykcolor where { /setcmykcolor get }{ %ifelse)
  648.     (     { pop 3{1 exch sub 3 1 roll} repeat setrgbcolor } bind)
  649.     ( } ifelse def)
  650.     ( /MF { findfont exch makefont setfont } bdef)
  651.     ( /DF { findfont exch scalefont setfont currentfont def } bdef)
  652.     ( /BEGINPAGE { pop /pagesave save def } bdef)
  653.     ( /ENDPAGE { pop pagesave restore showpage } def)
  654.     ( /REMAP { %def)
  655.     (   FontDirectory 2 index known { pop pop pop } { %ifelse)
  656.     (     findfont begin currentdict dup length dict begin)
  657.     (       { 1 index /FID ne {def}{pop pop} ifelse } forall)
  658.     (       exch dup length 0 gt { /Encoding exch def }{ pop } ifelse)
  659.     (     currentdict end end definefont pop)
  660.     (   } ifelse)
  661.     ( } bdef)
  662.     ( /RECODE { %def)
  663.     (    3 -1 roll 1 index findfont /Encoding get 256 array copy exch)
  664.     (    0 exch { %forall)
  665.     (     dup type/nametype eq)
  666.     (    { 3 {2 index} repeat put pop 1 add }{ exch pop }ifelse)
  667.     (    } forall pop 3 1 roll REMAP)
  668.     ( } bdef)
  669.     ( end %PROLOGUE)
  670.     (%%EndProcSet: Adobe_distill 0.906)
  671.     (%%EndProlog)
  672.     (%%BeginSetup)
  673.     (PROLOGUE begin)
  674.     % write all the above strings to the output file:
  675.     counttomark -1 1 { %for
  676.         -1 roll fd exch writestring fd (\n) writestring
  677.     } for
  678.     fd systemdict /flushfile get exec
  679.     pop %mark
  680.     } bdef
  681.     /checksetup { %def
  682.     % called from "fontstate", "graphicstate", and "definefont"
  683.     beginsetup cvbool {
  684.         /beginsetup false hidebool
  685.         fd (\n%%EndSetup\n%%Page: 1 1\n) writestring
  686.         fd (%%PageFonts: (atend)\n) writestring
  687.         fd (%%PageBoundingBox: (atend)\n) writestring
  688.         fd (1 BEGINPAGE\n) writestring
  689.         /begunpage true hidebool
  690.         /fontcount 0 store
  691.     }{ %else
  692.         lastshowpage cvbool { %if
  693.         /lastshowpage false hidebool
  694.         /fontcount 0 store
  695.         writeNL (%%Page: ) wout
  696.         trace { (page: ) print pagecount cvnum == flush } if
  697.         /pagecount pagecount cvnum 1 add hideval
  698.         pagecount cvnum dup writenum writenum writeNL
  699.         (%%PageFonts: (atend)) writeop
  700.         (%%PageBoundingBox: (atend)) writeop
  701.         pagecount cvnum scratch cvs wout ( BEGINPAGE\n) wout
  702.         /begunpage true hidebool
  703.          % invalidate all remapped fonts, for page independence
  704.         FontDirectory { %forall
  705.             exch pop dup /FontInfo known { %ifelse
  706.             /FontInfo get dup /pleasemap known { %ifelse
  707.                 begin (Glenn Reid)
  708.                 pleasemap cvbool not {
  709.                     /pleasemap true hidebool
  710.                 } if pop
  711.                 end
  712.             }{ pop } ifelse
  713.             }{ pop } ifelse
  714.         } forall
  715.         % forcegstate
  716.         } if
  717.     } ifelse
  718.     } bdef
  719.     /writenamearray {        % [ /name ... ] :
  720.     fd ([) writestring
  721.     /indentlevel ++ fd (\n) writestring indent
  722.     /CNT 1 store
  723.     %| maintain CNT to count bytes.  wrap lines at a reasonable
  724.     %| place when writing out character names, to avoid long lines
  725.     { %forall
  726.         fd (/) writestring
  727.         dup type /nametype eq { scratch cvs }{ pop (.notdef) } ifelse
  728.         dup  length 1 add CNT add /CNT exch store  fd exch writestring
  729.         CNT 60 ge { /CNT 1 store fd (\n) writestring indent } if
  730.     } forall
  731.     /indentlevel -- fd (\n) writestring indent fd (]) writestring
  732.     } bdef
  733.     /writediffencoding {    % [ 32/name 37/etc ... ] :
  734.     fd ([) writestring
  735.     /indentlevel ++ fd (\n) writestring indent
  736.     /CNT 1 store
  737.     %| maintain CNT to count bytes.  wrap lines at a reasonable
  738.     %| place when writing out character names, to avoid long lines
  739.     { %forall
  740.         dup type /integertype eq { %ifelse
  741.         fd (\040) writestring
  742.         scratch cvs fd exch writestring /CNT CNT 4 add store
  743.         }{ %else
  744.         fd (/) writestring
  745.         dup type /nametype eq { scratch cvs }{ pop (.notdef) } ifelse
  746.         dup  length 1 add CNT add /CNT exch store  fd exch writestring
  747.         } ifelse
  748.         CNT 60 ge { /CNT 1 store fd (\n) writestring indent } if
  749.     } forall
  750.     /indentlevel -- fd (\n) writestring indent fd (]) writestring
  751.     } bdef
  752.  
  753.   % write numbers in various formats:
  754.  
  755.     /thruCTM { CTM transform } bdef
  756.     /dthruCTM { CTM dtransform } bdef
  757.     /XthruCTM { %def
  758.     dup CTM dtransform
  759.     rot not { pop }{ %else
  760.         2 copy gt { pop }{ exch pop } ifelse
  761.     } ifelse
  762.     } bdef
  763.  
  764.     /*writestring { %def
  765.     writestring fd *flushfile
  766.     } bdef
  767.     /shave { %def
  768.       % eliminate significant digits beyond .001; compensate for roundoff
  769.     dup type /realtype eq { %if
  770.         1000 mul truncate 1000 div
  771.     } if
  772.     } bdef
  773.     /writenum { % def        % num :
  774.     dup abs 0.001 le { pop 0 } if        % --> 0
  775.     dup dup cvi eq { cvi } if
  776.     fd exch scratch cvs writestring _space
  777.     } bdef
  778.     /writeprecisenum { % def        % num :
  779.     fd exch scratch cvs writestring _space
  780.     } bdef
  781.     /writeXnum { % def        % num :
  782.     CTM 0 get mul writenum
  783.     } bdef
  784.     /writeYnum { % def        % num :
  785.     CTM 3 get mul writenum
  786.     } bdef
  787.     /writeTpair { % def        % num1 num2 :
  788.     thruCTM exch
  789.     writenum writenum
  790.     } bdef
  791.     /writepair { % def        % num1 num2 :
  792.     exch writenum writenum
  793.     } bdef
  794.     /writenumarray {        % [ nums ] : 
  795.     fd ([) writestring
  796.     { writenum } forall
  797.     fd (] ) writestring
  798.     } bdef
  799.  
  800.   % write out names and strings:
  801.     /writeNL { fd (\n) writestring } bdef
  802.     /_space { fd (\040) writestring } bdef
  803.     /wout { % def        % (string) :
  804.      fd exch writestring
  805.     } bdef
  806.     /writestr { % def        % (string) :
  807.     fd exch writestring _space
  808.     } bdef
  809.     /writeop { %def        % (string) :
  810.     fd exch writestring writeNL
  811.     } bdef
  812.     /writePSstring { % def    % (string) :
  813.     fd (\() writestring dup length 75 gt exch
  814.     wordfix fd (\) ) writestring { writeNL } if % if length > 75 bytes
  815.     } bdef
  816.     /writename { % def        % name :
  817.     scratch cvs fd exch writestring  _space
  818.     } bdef
  819.     /writeRname { % def        % name :
  820.     (/) wout scratch cvs wout (R ) wout
  821.     } bdef
  822.     /checkallnames { %def    % proc :
  823.     { % forall
  824.         dup type /nametype ne { pop }{ %ifelse
  825.         dup systemdict exch known { pop }{ % ifelse
  826.             dup xcheck not { pop }{ %ifelse
  827.             dup load dup type /arraytype eq %
  828.                 { checkallnames }{ pop } ifelse
  829.             (userdict /) wout dup writename
  830.             load writeANY
  831.             (put) writeop
  832.             } ifelse
  833.         } ifelse
  834.         } ifelse
  835.     } forall
  836.     } bdef
  837.     /writeproc { %def
  838.     ({) writestr writeNL
  839.     insideproc exch /insideproc true store /indentlevel ++
  840.     dup type /arraytype eq 1 index type /packedarraytype eq or { % ifelse
  841.         dup length 20 lt { %ifelse
  842.         { writeANY } forall
  843.         }{ %else
  844.         { writeANY writeNL indent } forall
  845.         } ifelse
  846.     }{ %else
  847.         writename
  848.     } ifelse
  849.     /insideproc exch store /indentlevel --
  850.     indent (}) writestr
  851.     } bdef
  852.     /typedict 12 dict def
  853.     typedict begin
  854.     /stringtype { writePSstring } def
  855.     /arraytype { %def
  856.         dup xcheck { %ifelse
  857.         writeproc
  858.         }{ %else
  859.         /CNT 1 store
  860.         ([) writeop /indentlevel ++
  861.         { indent writeANY writeNL } forall
  862. %         { %forall
  863. %             writeANY /CNT ++ CNT 10 gt { %if
  864. %             /CNT 1 store writeNL indent
  865. %             } if
  866. %         } forall
  867.         /indentlevel -- indent (]) writeop
  868.         } ifelse
  869.     } bdef
  870.     /packedarraytype /arraytype load def
  871.     /dicttype { %def
  872.               % safety: 1 add (needed for User Fonts)
  873.         dup maxlength 1 add writenum (dict begin) writeop
  874.         { %forall
  875.         indent exch writeANY writeANY (def) writeop
  876.         } forall (currentdict end) writeop
  877.     } bdef
  878.     /integertype { writenum } def
  879.     /realtype { writenum } def
  880.     /nulltype { pop (null ) wout } def
  881.     /operatortype { %def
  882.         insideproc { %ifelse
  883.         writename
  884.         }{ %else
  885.         (/) wout writename (load) writestr
  886.         } ifelse
  887.     } bdef
  888.     /nametype { %def
  889.         dup xcheck not { (/) wout } if
  890.         writename
  891.     } bdef
  892.     end % typedict
  893.     /writeANY { %def 
  894.     dup type dup typedict exch known { %ifelse
  895.         typedict exch get exec
  896.     }{ %else
  897.         pop writename
  898.     } ifelse
  899.     } bdef
  900.     % The following writes an escaped string that may contain special chars.
  901.     % It regenerates the (\035string) notation.
  902.     /wordfix { %def        % (string) :
  903.     (\() search { %ifelse
  904.         rparenfix (\\\() wout pop wordfix
  905.     }{ rparenfix } ifelse
  906.     } bdef
  907.     /rparenfix { %def
  908.     (\)) search { %ifelse
  909.         binaryfix (\\\)) wout pop rparenfix
  910.     }{ binaryfix } ifelse
  911.     } bdef
  912.     /str1 1 string def
  913.     /longstr 1028 string def
  914.     /writetomark { %def
  915.     counttomark -1 0 { %for
  916.         longstr exch exch put
  917.     } for
  918.     } bdef
  919.     /binaryfix { %def
  920.     dup false exch { %forall
  921.         dup 128 gt 1 index 32 lt or { %ifelse
  922.         str1 exch 0 exch put pop true exit
  923.         }{ pop } ifelse
  924.     } forall
  925.     { %ifelse    % depending on whether num>128 was found
  926.         str1 search {
  927.         quotefix        % string previous to num>128
  928.         (\\) wout        % the backslash
  929.                     % write suspicious char as octal
  930.         0 get 8 scratch cvrs    % padding with leading 0 as needed
  931.         dup length 3 exch sub { (0) wout } repeat wout
  932.         binaryfix        % recurse on rest of string
  933.         }{
  934.         (ERROR: search lied in "binaryfix".) = flush stop
  935.         } ifelse
  936.     }{ quotefix } ifelse
  937.     } bdef
  938.     /quotefix { %def
  939.     (\\) search {  %ifelse
  940.         wout (\\\\) wout pop quotefix
  941.     }{ wout } ifelse
  942.     } bdef
  943.  
  944. end %adobe_distill
  945. /setpacking where { pop setpacking } if
  946. %%EndProcSet
  947.  
  948. %%BeginProcSet: distill_graphicstate 1.0 0
  949. % we don't want packed arrays for all these matrices; set packing later
  950. /adobe_distill dup where { pop pop }{ 165 200 add dict def } ifelse
  951. adobe_distill begin
  952.  
  953.   % define a bunch of state variables, then use "store" subsequently
  954.   % to write into them (to avoid currentdict problems).
  955.     /mtx matrix def
  956.     /tmpmtx matrix def
  957.     /fontmtx matrix def
  958.     /curfontmtx matrix def
  959.     /CTM matrix currentmatrix def
  960.     /currCTM matrix currentmatrix def
  961.     /compareCTM matrix currentmatrix def
  962.     /newCTM matrix def
  963.     /mtx1 0 def
  964.     /mtx2 0 def
  965.     /invmtx
  966.     tmpmtx currentmatrix matrix invertmatrix
  967.     def
  968.     /$normalize {
  969.     invmtx currCTM concatmatrix
  970.     } bind def
  971.     /rot false def
  972.     /gray currentgray def
  973.     currentcmykcolor
  974.     /colK exch def /colY exch def /colM exch def /colC exch def
  975.     /linewidth currentlinewidth def
  976.     /linecap currentlinecap def
  977.     /linejoin currentlinejoin def
  978.     /miterlimit currentmiterlimit def
  979.     /screenang null def
  980.     /screenfreq null def
  981.     /screenproc null def
  982.     /closed false def
  983.     currentdash /dashoff exch def /dasharray exch def
  984.     /pointX -1 def /pointY -1 def
  985.     /initfontscale matrix def
  986.     /fontscale initfontscale def
  987.     /0a 0 def /0b 0 def
  988.     /X1 0 def /X2 0 def
  989.     /origfontname null def
  990.     /currfontdict null def
  991.     /definefontname null def
  992.     /tempfontname /Courier def
  993.     /ischarpath false def
  994.     /currpath newpath hashpath def
  995.     /pathstr () def
  996.     /pathbool false def
  997.     /pathX 0 def /pathY 0 def
  998.     /lineX 0 def /lineY 0 def
  999.     /lcount 0 def /rcount 0 def
  1000.     /REPEAT_LINETO_THRESHOLD 20 def    % point at which repeat loop is used
  1001.     /currX -1 def /currY -1 def
  1002.     /diffX 0 def
  1003.     /gstates 0 def
  1004.     /charpathgstate 0 def
  1005.     /CNT 0 def
  1006.     /showX null def /showY null def
  1007.     /currfont currentfont def
  1008.     /cliphash newpath hashpath def
  1009.     /?simplepath false def
  1010.     /simplepath [ 0 0 0 0 ] def
  1011.  
  1012. /setpacking where { pop currentpacking true setpacking } if
  1013.  
  1014.     /matrixeq { %def        % compares two matrices
  1015.     /mtx2 exch store
  1016.     /mtx1 exch store
  1017.     0 1 5 { %for
  1018.         dup mtx1 exch get
  1019.         exch mtx2 exch get eq
  1020.     } for
  1021.     5 { and } repeat
  1022.     } bdef
  1023.  
  1024.   % procedure definitions for state machinery ---------------
  1025.  
  1026.     /initgstate { %def
  1027.     gsave
  1028.         initgraphics
  1029.         tmpmtx currentmatrix compareCTM matrixeq not {
  1030.         /CTM mtx currentmatrix $normalize store
  1031.         compareCTM currentmatrix pop
  1032.         .345 dup 0 dtransform pop 0 idtransform
  1033.         pop ne dup /rot exch store not optimize and /optim exch store
  1034.         } if
  1035.         /gray currentgray store
  1036.         currentcmykcolor
  1037.         /colK exch store /colY exch store
  1038.         /colM exch store /colC exch store
  1039.         /linewidth currentlinewidth XthruCTM store
  1040.         /linecap currentlinecap store
  1041.         /linejoin currentlinejoin store
  1042.         /miterlimit currentmiterlimit store
  1043.         currentdash /dashoff exch store /dasharray exch store
  1044.         /origfontname /InvalidFont store
  1045.         /definefontname /InvalidFont store
  1046.         /fontscale initfontscale store
  1047.         /currfontdict currentfont store
  1048.         currentscreen
  1049.         /screenproc exch store
  1050.         /screenang exch store
  1051.         /screenfreq exch store
  1052.         /cliphash clippath hashpath store    % Wed Dec 28 12:41:07 1988
  1053.     grestore
  1054.     } bdef % initgstate
  1055.     /forcegstate { %def
  1056.     % after save & restore, you may have to explicitly "undo" anything
  1057.     % that was done within the saved context.  Since save & restore
  1058.     % affect all our state variables, we dump anything that is different
  1059.     % from the default graphics state:
  1060.     /CTM [1.01 0 1.01 0 .5 .5] store
  1061.     /compareCTM [1.01 0 1.01 0 .5 .5] store
  1062.     /fontscale initfontscale store
  1063.     /currfontdict null store
  1064.     /gray null store
  1065.     /colC null store
  1066.     % checkgstate % fontstate
  1067.     } bdef % initgstate
  1068.     /checkgstate { %def
  1069.     graphicstate
  1070.     fontstate
  1071.     } def %checkgstate
  1072.     /checkCTM { %def
  1073.     tmpmtx currentmatrix compareCTM matrixeq not {
  1074.          /CTM mtx currentmatrix $normalize store
  1075.         compareCTM currentmatrix pop
  1076.         .345 dup 0 dtransform pop 0 idtransform
  1077.         pop ne dup /rot exch store not optimize and /optim exch store
  1078.     } if
  1079.     } bdef
  1080.     /generalstate { %def
  1081.     stackptr 0 ne { stackshow } if
  1082.     /lastshow false store
  1083.     checkCTM
  1084.     } bdef % generalstate
  1085.     /colorstate { %def
  1086.     mark currentcmykcolor
  1087.     colC colM colY colK 4 { %repeat
  1088.         dup 5 index ne 10 1 roll 8 1 roll
  1089.     } repeat
  1090.     cleartomark or or or {
  1091.         currentcmykcolor
  1092.         /colK exch store /colY exch store
  1093.         /colM exch store /colC exch store
  1094.         colC 0 eq colM 0 eq colY 0 eq and and not { %ifelse % COLOR
  1095.         colC writenum colM writenum colY writenum colK writenum
  1096.         (C) writeop
  1097.         }{ %else                        % GRAY
  1098.         1 colK sub shave writenum (g) writeop
  1099.         } ifelse
  1100.     } if
  1101. %     gray currentgray ne {
  1102. %         /gray currentgray store
  1103. %         gray shave writenum (g) writeop
  1104. %     } if
  1105.     } bdef % colorstate
  1106.     /registerfont { %def
  1107.     dup cachedir exch 20 dict put    % allow 20 point sizes
  1108.     cachedir exch get        % ptsize dict
  1109.     exch fontcount put
  1110.     } bdef
  1111.     /addfontsize { %def
  1112.     cachedir exch get
  1113.     exch fontcount put
  1114.     } bdef
  1115.  
  1116.     /fontstate { %def
  1117.       currentfont null eq not    { %if
  1118.     currentfont dup /ScaleMatrix known not { pop }{ %ifelse
  1119.         begin
  1120.          % determine if anything has changed:
  1121.         tmpmtx currentmatrix compareCTM matrixeq not
  1122.         currfontdict currentfont ne or
  1123.         ScaleMatrix fontscale ne or
  1124.         { %if
  1125.           % get and set new font names
  1126.             /origfontname
  1127.             /FontInfo where { %ifelse
  1128.                 pop FontInfo /realname known
  1129.                 { FontInfo /realname get }{ % ifelse
  1130.                   /FontName where {pop FontName}{/Unknown} ifelse
  1131.                 } ifelse
  1132.             }{ %else
  1133.                 /FontName where {pop FontName}{/Unknown} ifelse
  1134.             } ifelse
  1135.             store
  1136.             /definefontname
  1137.             /FontName where { pop FontName }{ /Unknown } ifelse
  1138.             FontDirectory { %forall
  1139.                 currentdict eq
  1140.                 { exch pop exit }
  1141.                 { pop } ifelse
  1142.             } forall
  1143.             store
  1144.             origfontname hidefontname
  1145.          % check for font reencoding:
  1146.          % The current font is the one required in the distilled
  1147.          % program.  If it is a reeconded font, we must generate
  1148.          % a call to "REMAP", but at the same time let's mark it
  1149.          % so we don't generate too may "REMAP" calls.
  1150.  
  1151.             checksetup generalstate colorstate
  1152.          % worry about reencoding:
  1153.             /FontInfo where { %ifelse
  1154.             pop FontInfo /pleasemap known { %ifelse
  1155.                 FontInfo /pleasemap get cvbool
  1156.             }{ %else
  1157.                 false  % evidently has not been reencoded...
  1158.             } ifelse % leaves a boolean
  1159.             }{ false } ifelse
  1160.             { % if remapping has not been done yet:
  1161.             Encoding hashencoding
  1162.             origfontname findfont /Encoding get hashencoding
  1163.             ne { %ifelse
  1164.                 Encoding hashencoding
  1165.                 STDvec cvnum eq { %ifelse
  1166.                 (stdvec) writestr
  1167.                 origfontname writeRname
  1168.                 origfontname (/) wout writename
  1169.                 ( REMAP) writeop
  1170.                 }{ %else
  1171.                   Encoding hashencoding PAGEvec cvnum eq {
  1172.                   (pagevec) writestr
  1173.                   origfontname writeRname
  1174.                   origfontname (/) wout writename
  1175.                   ( REMAP) writeop
  1176.                   }{ %else
  1177.                   origfontname findfont /Encoding get Encoding
  1178.                   diffencoding writediffencoding
  1179.                   origfontname writeRname
  1180.                   origfontname (/) wout writename
  1181.                   ( RECODE) writeop
  1182.                   } ifelse
  1183.                 } ifelse
  1184.                 /FontInfo where { %if
  1185.                 pop FontInfo /pleasemap known { %if
  1186.                     FontInfo begin
  1187.                         /pleasemap false hidebool
  1188.                     end
  1189.                 } if
  1190.                 } if
  1191.             } if
  1192.             } if % /pleasemap
  1193.          % check font scale change:
  1194.          % This stuff is absolutely horrible....
  1195.             /fontscale ScaleMatrix store
  1196.             fontscale CTM curfontmtx concatmatrix
  1197.             aload pop                % Xscale 0a 0b Yscale 0 0
  1198.             % pop 3 -1 roll pop 3 -1 roll    % X Y 0b 0a [wrong]
  1199.             pop pop 3 1 roll            % X Y 0b 0a
  1200.            % if 2nd and 5th elements are both 0...
  1201.            % and X Y are equal and positive, then you can use
  1202.            % "scalefont", else you have to use "makefont"
  1203.             /0a exch store /0b exch store
  1204.             /X1 exch store /X2 exch store
  1205.              X1 X2            % leave on stack
  1206.             0a 0b eq 0b 0 eq and    % make sure 0's are 0
  1207.              X1 X2 eq and        % X1 and X2 are equal
  1208.              X1 dup abs eq X2 dup abs eq and    % and positive
  1209.              and
  1210.             { %ifelse
  1211.             pop shave    % eliminate unnecessary precision
  1212.              % if you find it in the "font dict cache"....
  1213.             cachedir definefontname known { %ifelse
  1214.                 cachedir definefontname get dup 2 index known {
  1215.                 exch get (F) wout writenum
  1216.                 (F) writeop
  1217.                 }{ %else
  1218.                 pop
  1219.                 /fontcount ++
  1220.                 dup definefontname addfontsize
  1221.                 (/F) wout fontcount writenum %+ cvnum writenum
  1222.                 writenum
  1223.                 origfontname
  1224.                 /FontInfo where { %ifelse
  1225.                     pop FontInfo /pleasemap known { %ifelse
  1226.                     FontInfo /pleasemap get cvbool
  1227.                     }{ false } ifelse % leaves a boolean
  1228.                 }{ false } ifelse
  1229.                 Encoding hashencoding    %new!
  1230.                 origfontname findfont /Encoding get
  1231.                 hashencoding ne and
  1232.                 { %ifelse
  1233.                     writeRname
  1234.                 }{ (/) wout writename } ifelse
  1235.                 (DF) writeop
  1236.                 } ifelse
  1237.             }{ %else if you DON'T find the name in the cache
  1238.                 /fontcount ++
  1239.                 dup definefontname registerfont
  1240.                 (/F) wout fontcount writenum
  1241.                 writenum
  1242.                 origfontname
  1243.                 /FontInfo where { %ifelse
  1244.                 pop FontInfo /pleasemap known { %ifelse
  1245.                     FontInfo /pleasemap get cvbool not
  1246.                 }{ false } ifelse % leaves a boolean
  1247.                 }{ false } ifelse
  1248.                 Encoding hashencoding    %new!
  1249.                 origfontname findfont /Encoding get
  1250.                 hashencoding ne and
  1251.                 { %ifelse
  1252.                 writeRname
  1253.                 }{ (/) wout writename } ifelse
  1254.                 (DF) writeop
  1255.             } ifelse
  1256.             }{ %else
  1257.              % need either "makefont" or rotated coordinate system
  1258.             pop pop curfontmtx
  1259.             dup 4 0. put dup 5 0. put  % no translate
  1260.             writenumarray
  1261.             origfontname
  1262.             /FontInfo where {
  1263.                 pop FontInfo /pleasemap known
  1264.             }{ false } ifelse { %ifelse
  1265.                 writeRname
  1266.             }{ (/) wout writename } ifelse
  1267.             (MF) writeop
  1268.             } ifelse
  1269.             /currfontdict currentfont store
  1270.         } if % anything has changed
  1271.         end
  1272.     } ifelse
  1273.     beginsetup cvbool not {
  1274.         generalstate
  1275.         colorstate
  1276.     } if
  1277.       } if
  1278.     } bdef %fontstate
  1279.  
  1280.     /graphicstate { %def
  1281.     checksetup
  1282.     generalstate
  1283.     colorstate
  1284.     linewidth currentlinewidth XthruCTM ne {
  1285.         /linewidth currentlinewidth XthruCTM store
  1286.         linewidth shave writenum (w) writeop
  1287.     } if
  1288.     linecap currentlinecap ne {
  1289.         /linecap currentlinecap store
  1290.         linecap writenum (setlinecap) writeop
  1291.     } if
  1292.     linejoin currentlinejoin ne {
  1293.         /linejoin currentlinejoin store
  1294.         linejoin writenum (j) writeop
  1295.     } if
  1296.     miterlimit currentmiterlimit ne {
  1297.         /miterlimit currentmiterlimit store
  1298.         miterlimit shave writenum (setmiterlimit) writeop
  1299.     } if
  1300.     currentdash dashoff ne exch dasharray ne or {
  1301.         currentdash /dashoff exch store /dasharray exch store
  1302.         fd ([) writestring
  1303.         dasharray { XthruCTM writenum } forall
  1304.         fd (] ) writestring
  1305.         dashoff XthruCTM writenum (d) writeop
  1306.     } if
  1307.     gsave
  1308.       % don't clip to degenerate paths of any kind:
  1309.         newpath clippath hashpath cliphash ne { %if
  1310.         mark { pathbbox } stopped not {
  1311.             exch 4 -1 roll sub abs 1 gt
  1312.             3 1 roll sub abs 1 gt and { % if
  1313.             writepath
  1314.             (clip newpath) writeop
  1315.             /cliphash hashpath store
  1316.             } if
  1317.         } if cleartomark
  1318.         } if
  1319.     grestore
  1320.     currentscreen
  1321.     /screenproc load ne exch screenang ne or exch screenfreq ne or { %if
  1322.         currentscreen
  1323.         /screenproc exch store
  1324.         /screenang exch store
  1325.         /screenfreq exch store
  1326.         screenfreq writenum screenang writenum writeNL
  1327.         /screenproc load
  1328.         dup type /arraytype eq
  1329.         1 index type /packedarraytype eq or { %ifelse
  1330.         checkallnames
  1331.         }{ pop } ifelse
  1332.         /screenproc load writeproc
  1333.         (setscreen) writeop
  1334.     } if
  1335.     } bdef %graphicstate
  1336.  
  1337. end %adobe_distill
  1338. /setpacking where { pop setpacking } if
  1339. %%EndProcSet
  1340.  
  1341. %%BeginProcSet: distill_optimize 1.0 0
  1342. /adobe_distill dup where { pop pop }{ 165 200 add dict def } ifelse
  1343. adobe_distill begin
  1344.   % These procedures implement an optimization scheme for recognizing
  1345.   % sequences of "show" operations that could be optimized into calls
  1346.   % to "widthshow" (or just "show" with a longer string body).  In
  1347.   % order to accomplish this, we have implemented a stack to store
  1348.   % string bodies until they are flushed by a font change, a change
  1349.   % in Y coordinate, or an inter-string space that is inconsistent.
  1350.   % When comparing coordinates for equality, anything with the given
  1351.   % tolerance is accepted as being equal (to combat roundoff error).
  1352.     /tolerance .05 ifnotdef
  1353.     /EQ { sub abs tolerance le } bdef
  1354.     /stack 250 array def
  1355.     /stackptr 0 def
  1356. /setpacking where { pop currentpacking true setpacking } if
  1357.     /push { %def
  1358.     stackptr 0 eq { % if
  1359.         currentpoint thruCTM
  1360.         /showY exch store /showX exch store
  1361.     } if
  1362.     /stackptr stackptr 1 add store
  1363.       stackptr 249 ge { (STACK OVERFLOW!) = flush exit } if
  1364.     stack stackptr 3 -1 roll put
  1365.     } bdef
  1366.     /pull { %def
  1367.     stack stackptr get
  1368.     /stackptr stackptr dup 0 gt { 1 sub } if store
  1369.     } bdef
  1370.  
  1371.     /*save systemdict /save get def
  1372.     /save { % def
  1373.     stackshow    % in case there's anything pending....
  1374.     *save
  1375.     } bdef
  1376.  
  1377.     /*restore systemdict /restore get def
  1378.     /restore { % def
  1379.     % after save & restore, you may have to explicitly "undo" anything
  1380.     % that was done within the saved context.  Since save & restore
  1381.     % affect all distillery state variables, we dump anything different
  1382.     % from the default graphics state:
  1383.     stackshow    % in case there's anything pending....
  1384.       currentlinecap    % 5
  1385.       currentlinewidth    % 4
  1386.       currentgray        % 3
  1387.       currentmiterlimit    % 2
  1388.       currentlinejoin    % 1
  1389.         6 -1 roll *restore
  1390.       setlinejoin        % 1
  1391.       setmiterlimit        % 2
  1392.       setgray        % 3
  1393.       setlinewidth        % 4
  1394.       setlinecap        % 5
  1395. %    initgstate
  1396.     forcegstate % checkgstate %graphicstate
  1397.     (after restore) d=
  1398.     } bdef
  1399.  
  1400.     /stackshow { %def
  1401.     stackptr 0 ne { %if
  1402.         (stackshow: ) d= 1 1 stackptr { (  ) pr= stack exch get d= } for
  1403.         stackptr 1 eq { %ifelse
  1404.         %- if there is only one string, use "show":
  1405.         pull writePSstring
  1406.         showX showY writepair (T) writeop
  1407.         }{ %else
  1408.         %- otherwise, build single string (with \b to use W):
  1409.         diffX 0 EQ not { % if
  1410.             gsave        % figure out widthshow value
  1411.             currfont setfont
  1412.             diffX (\b) stringwidth CTM dtransform pop sub
  1413.             grestore
  1414.             writenum (0) writestr (\b) 0 get writenum
  1415.             (\\b)    % padding character
  1416.         }{ % else
  1417.             ()        % empty padding character
  1418.         } ifelse
  1419.         (\() wout
  1420.         1 1 stackptr 1 sub { % for
  1421.             stack exch get wordfix dup wout
  1422.         } for
  1423.         pop        % padding character
  1424.         pull wordfix
  1425.         (\)) wout writeNL
  1426.         showX showY writepair
  1427.         %- if diffX is 0, don't use "widthshow":
  1428.         diffX 0 EQ { (T) }{ (W) } ifelse writeop
  1429.         } ifelse
  1430.         /stackptr 0 store
  1431.     } if
  1432.     } bdef
  1433.  
  1434.     /setcurrpoint { %def
  1435.     currentpoint thruCTM
  1436.     /currY exch store /currX exch store
  1437.     } bdef % setcurrpoint
  1438.  
  1439. end %adobe_distill
  1440. /setpacking where { pop setpacking } if
  1441. %%EndProcSet
  1442.  
  1443. %%BeginProcSet: distill_paintops 1.0 0
  1444. /setpacking where { pop currentpacking true setpacking } if
  1445. /adobe_distill dup where { pop pop }{ 165 200 add dict def } ifelse
  1446. adobe_distill begin
  1447.  
  1448.   % text operators
  1449.     /sameYcoords { %def
  1450.       % this is pulled out of the "show" proc for readability; it is
  1451.       % not used anywhere else
  1452.     currentfont currfont ne { %ifelse
  1453.         stackshow fontstate push
  1454.     }{ %else
  1455.         currentpoint thruCTM pop
  1456.         currX sub dup diffX EQ { %ifelse
  1457.         pop     % dup'ed value
  1458.         push
  1459.         }{ %else
  1460.         diffX -1 eq { %ifelse
  1461.             /diffX exch store push
  1462.         }{ % else
  1463.             pop stackshow fontstate
  1464.             /diffX -1 store push
  1465.         } ifelse
  1466.         } ifelse
  1467.     } ifelse
  1468.     } bdef
  1469.     /show { %def
  1470.     checkCTM currentpoint thruCTM ?box
  1471.     optim { %ifelse
  1472.         dup length 0 eq { pop } { %ifelse
  1473.         dup            % save string for use at the end
  1474.         lastshow not { %ifelse
  1475.             stackshow fontstate
  1476.             /currfont currentfont store
  1477.             push
  1478.             /diffX -1 store
  1479.         }{ % else
  1480.           % don't optimize if matrix is different...
  1481.             tmpmtx currentmatrix compareCTM matrixeq
  1482.             currentpoint thruCTM exch pop
  1483.             currY eq and { %ifelse        Y = Y
  1484.             sameYcoords
  1485.             }{ %else currY ne
  1486.             stackshow    % flush the pending show stack
  1487.             fontstate
  1488.             push        % the string (and set showX, showY)
  1489.             /diffX -1 store
  1490.             } ifelse
  1491.             /currfont currentfont store
  1492.         } ifelse %lastshow
  1493.         currentfont /FontType known {
  1494.             currentfont /FontType get 3 eq {
  1495.             end show adobe_distill begin
  1496.             }{ show } ifelse
  1497.         }{ end show adobe_distill begin } ifelse
  1498.         setcurrpoint
  1499.         /lastshow true store
  1500.         } ifelse % if length is not 0
  1501.     }{ % else
  1502.         dup length 0 eq { pop } { %ifelse
  1503.         fontstate
  1504.         dup writePSstring currentpoint writeTpair
  1505.         (T) writeop
  1506.         currentfont /FontType known {
  1507.             currentfont /FontType get 3 eq {
  1508.             end show adobe_distill begin
  1509.             }{ show } ifelse
  1510.         }{ end show adobe_distill begin } ifelse
  1511.         } ifelse % if operand is not null string
  1512.     } ifelse
  1513.     currentpoint thruCTM ?box
  1514.     } bdef
  1515.  
  1516.     /widthshow { %def
  1517.     checkCTM currentpoint thruCTM ?box
  1518.     optim { %ifelse
  1519.         dup length 0 eq { 4{pop}repeat } { %ifelse
  1520.         4 copy pop pop
  1521.         1 index EQ exch 0.0 EQ and { % ifelse
  1522.             fontstate
  1523.             4 1 roll pop pop pop
  1524.             show    % make sure it's not "bound"
  1525.         }{ %else
  1526.             fontstate
  1527.             4 copy
  1528.             4 2 roll dthruCTM writepair %exch writeXnum writeYnum
  1529.             exch writenum writePSstring currentpoint writeTpair
  1530.             (W) writeop
  1531.             currentfont /FontType known {
  1532.             currentfont /FontType get 3 eq {
  1533.                 end widthshow adobe_distill begin
  1534.             }{ widthshow } ifelse
  1535.             }{ end widthshow adobe_distill begin } ifelse
  1536.         } ifelse
  1537.         } ifelse
  1538.     }{ %else
  1539.         % Cx Cy char (string) widthshow
  1540.         dup length 0 eq { 4{pop}repeat } { %ifelse
  1541.         fontstate
  1542.         4 copy
  1543.         % 4 -2 roll exch writeXnum writeYnum exch writenum
  1544.         4 -2 roll dthruCTM writepair exch writenum
  1545.         writePSstring currentpoint writeTpair
  1546.         (W) writeop
  1547.         currentfont /FontType known {
  1548.             currentfont /FontType get 3 eq {
  1549.             end widthshow adobe_distill begin
  1550.             }{ widthshow } ifelse
  1551.         }{ end widthshow adobe_distill begin } ifelse
  1552.         } ifelse
  1553.     } ifelse
  1554.     currentpoint thruCTM ?box
  1555.     } bdef
  1556.  
  1557.     /ashow { %bdef
  1558.     checkCTM currentpoint thruCTM ?box
  1559.     optim { %ifelse
  1560.         dup length 0 eq { pop pop pop } { %ifelse
  1561.         3 copy pop
  1562.         1 index EQ exch 0.0 EQ and { % ifelse
  1563.             fontstate
  1564.             3 1 roll pop pop
  1565.             show    % make sure it's not "bound"
  1566.         }{ %else
  1567.             fontstate
  1568.             3 copy
  1569.             3 1 roll dthruCTM writepair
  1570.             writePSstring currentpoint writeTpair
  1571.             (A) writeop
  1572.             currentfont /FontType known {
  1573.             currentfont /FontType get 3 eq {
  1574.                 end ashow adobe_distill begin
  1575.             }{ ashow } ifelse
  1576.             }{ end ashow adobe_distill begin } ifelse
  1577.         } ifelse
  1578.         } ifelse
  1579.     }{ %else
  1580.         dup length 0 eq { pop pop pop } { %ifelse
  1581.         fontstate
  1582.         3 copy
  1583.         3 1 roll dthruCTM writepair % exch writeXnum writeYnum
  1584.         writePSstring currentpoint writeTpair
  1585.         (A) writeop
  1586.         currentfont /FontType known {
  1587.             currentfont /FontType get 3 eq {
  1588.             end ashow adobe_distill begin
  1589.             }{ ashow } ifelse
  1590.         }{ end ashow adobe_distill begin } ifelse
  1591.         } ifelse
  1592.     } ifelse
  1593.     currentpoint thruCTM ?box
  1594.     } bdef
  1595.  
  1596.     /awidthshow { %def
  1597.     % Cx Cy 32 Ax Ay (string) awidthshow
  1598.     checkCTM currentpoint thruCTM ?box
  1599.     optim { %def
  1600.         dup length 0 eq { 6{pop}repeat } { %ifelse
  1601.         fontstate
  1602.         6 copy 6 1 roll
  1603.         1 index EQ exch 0.0 EQ and { %ifelse
  1604.             4 1 roll 1 index eq exch 0.0 eq and { %leaves 32 (str)
  1605.             8 1 roll 7 { pop } repeat
  1606.             show    % make sure it's not "bound"
  1607.             }{ %else
  1608.             pop pop 3 1 roll pop pop
  1609.             widthshow    % make sure it's not "bound"
  1610.             } ifelse
  1611.         }{ %else
  1612.             pop pop pop pop 6 copy 6 -3 roll pop
  1613.             1 index EQ exch 0.0 EQ and { % ifelse
  1614.             9 3 roll 6 { pop } repeat
  1615.             ashow    % make sure it's not "bound"
  1616.             }{ %else
  1617.             pop pop pop 6 copy
  1618.             6 -2 roll dthruCTM writepair
  1619.             4 -1 roll writenum 3 1 roll dthruCTM writepair
  1620.             writePSstring currentpoint writeTpair
  1621.             (AW) writeop
  1622.             currentfont /FontType known {
  1623.                 currentfont /FontType get 3 eq {
  1624.                 end awidthshow adobe_distill begin
  1625.                 }{ awidthshow } ifelse
  1626.             }{ end awidthshow adobe_distill begin } ifelse
  1627.             } ifelse
  1628.         } ifelse
  1629.         } ifelse
  1630.     }{ %else
  1631.         dup length 0 eq { 6{pop}repeat } { %ifelse
  1632.         fontstate
  1633.         6 copy
  1634.         % 6 -2 roll exch writeXnum writeYnum
  1635.         % 4 -1 roll writenum 3 -1 roll writeXnum exch writeYnum
  1636.         6 -2 roll dthruCTM writepair
  1637.         4 -1 roll writenum 3 1 roll dthruCTM writepair
  1638.         writePSstring currentpoint writeTpair
  1639.         (AW) writeop
  1640.             currentfont /FontType known {
  1641.             currentfont /FontType get 3 eq {
  1642.                 end awidthshow adobe_distill begin
  1643.             }{ awidthshow } ifelse
  1644.             }{ end awidthshow adobe_distill begin } ifelse
  1645.         } ifelse
  1646.     } ifelse
  1647.     currentpoint thruCTM ?box
  1648.     } bdef
  1649.  
  1650.    % graphics operators
  1651.     /fillguts { %def
  1652.     (starting fill) d=
  1653.     generalstate
  1654.     graphicstate
  1655.     writepath
  1656.     ischarpath { % if
  1657.         pathstr length 0 gt {
  1658.         pathX writenum pathY writenum (m) writeop
  1659.         pathstr writePSstring (false charpath) writeop
  1660.         } if
  1661.         gstates 0 le {
  1662.         /ischarpath false store
  1663.         /closed false store
  1664.         } if
  1665.     } if
  1666.     } bdef
  1667.  
  1668.     /fill { %def
  1669.     fillguts
  1670.     ?simplepath {
  1671.         simplepath aload pop
  1672.         4 2 roll writepair (moveto) writeop writepair (lineto) writeop
  1673.         /?simplepath false store
  1674.     } if
  1675.     (f) writeop
  1676.     fill
  1677.     } bdef
  1678.     /eofill { %def
  1679.     fillguts
  1680.     ?simplepath { %ifelse
  1681.         simplepath aload pop
  1682.         4 2 roll writepair (moveto) writeop writepair (lineto) writeop
  1683.         /?simplepath false store
  1684.     } if
  1685.     (eofill) writeop
  1686.     eofill
  1687.     } bdef
  1688.  
  1689.     /stroke { %def
  1690.     fillguts
  1691.     ?simplepath { %ifelse
  1692.         generalstate graphicstate
  1693.         simplepath aload pop writepair writepair (l) writeop
  1694.         /?simplepath false store
  1695.     }{ % else
  1696.         closed { (cp ) wout } if
  1697.         (s) writeop
  1698.     } ifelse
  1699.     stroke
  1700.     } bdef
  1701.  
  1702.     /clip { %def
  1703.     /lastshow false store
  1704.     clip
  1705.     } bdef
  1706.     /eoclip { clip } def
  1707.     /imageguts { % def
  1708.     graphicstate
  1709.     /imageproc exch store
  1710.     /imagematrix exch store
  1711.     /imagedepth exch store
  1712.     /imageheight exch store
  1713.     /imagewidth exch store
  1714.      % set up the call to "image" in the output file:
  1715.     (/imagesave save def) writeop
  1716.     CTM writenumarray (concat) writeop
  1717.     0 0 thruCTM ?box
  1718.     imagewidth imagedepth dup type /booleantype eq { pop 1 } if
  1719.     div imageheight imagematrix itransform thruCTM ?box
  1720.     (/imagebuff) writestr
  1721.     imagedepth dup type /booleantype eq { pop 1 } if
  1722.     imagewidth mul dup dup 8 idiv 8 mul eq {8 idiv}{8 idiv 1 add} ifelse
  1723.     writenum ( string def) writeop
  1724.      % invoke "image" with correct args in output file:
  1725.     imagewidth writenum imageheight writenum
  1726.     imagedepth (     ) cvs writestr
  1727.     imagematrix writenumarray
  1728.     } bdef
  1729.     /image { %def    % width height depth matrix { proc } :
  1730.     imageguts
  1731.     ({ currentfile imagebuff readhexstring pop } image) writeop
  1732.     imagewidth imageheight imagedepth imagematrix
  1733.     { imageproc dup fd exch writehexstring writeNL } image
  1734.     (imagesave restore) writeop
  1735.     } bdef
  1736.     /imagemask { % def    % width height depth matrix { proc } :
  1737.     imageguts
  1738.     ({ currentfile imagebuff readhexstring pop } imagemask) writeop
  1739.     imagewidth imageheight imagedepth imagematrix
  1740.     { imageproc dup fd exch writehexstring writeNL } imagemask
  1741.     (imagesave restore) writeop
  1742.     } bdef
  1743.     % don't actually print the pages...   Fri Feb 17 13:13:10 1989
  1744.     % /*showpage systemdict /showpage get def
  1745.     /*showpage where { pop }{ %ifelse
  1746.     /*showpage /showpage load def
  1747.     } ifelse
  1748.     /showpage { %def
  1749.     stackshow
  1750.     pagecount cvnum scratch cvs wout ( ENDPAGE\n) wout
  1751.     /lastshowpage true hidebool
  1752.     /begunpage false hidebool
  1753.     /PAGEvec 0 hideval
  1754.     *showpage
  1755.     (%%PageTrailer) writeop
  1756.     (%%PageFonts: ) wout
  1757.     pfontcount cvnum 0 eq { writeNL }{ %else
  1758.         pfontcount cvnum 200 lt { %ifelse
  1759.         pagefonts 0 pfontcount cvnum getinterval writeop
  1760.         }{ %else
  1761.         pagefonts (\040) search not { writeop }{ %else
  1762.             writeop    % first one without the %%+
  1763.             { %loop
  1764.             search { (%%+ ) wout writeop }{ %else
  1765.                 (\000) search { writeop pop pop }{ pop0} ifelse
  1766.                 exit
  1767.             } ifelse
  1768.             } loop
  1769.         } ifelse
  1770.         } ifelse
  1771.     } ifelse
  1772.     0 1 pfontcount cvnum { pagefonts exch 0 put } for
  1773.     /pfontcount 0 hideval
  1774.     LLx 10000 eq LLy 10000 eq or URx -1 eq URy¬-10000 eq or or not {
  1775.         (%%PageBoundingBox: ) wout
  1776.           LLx cvnum writenum LLy cvnum writenum
  1777.           URx cvnum writenum URy cvnum writenum writeNL
  1778.         pageBBox-docBBox
  1779.     } if
  1780.     /LLx 10000 hideval  /LLy 10000 hideval
  1781.     /URx -10000 hideval /URy -10000 hideval
  1782.     % checksetup
  1783.     } bdef
  1784.     /*moveto systemdict /moveto get def
  1785.     /*pathbbox systemdict /pathbbox get def
  1786.     /"athbbox { %def
  1787.     ischarpath { %ifelse
  1788.         gsave
  1789.         { currentpoint } stopped { 0 0 } if *moveto
  1790.         pathstr false charpath flattenpath *pathbbox
  1791.         grestore
  1792.     }{ %else
  1793.         *pathbbox
  1794.     } ifelse
  1795.     } bdef
  1796.     /gsave { % def
  1797.     /gstates gstates 1 add store
  1798.     ∫save
  1799.     } bdef
  1800.     /grestore { % def
  1801.     gstates 0 gt { %if
  1802.         /gstates Òstates 1 sub store
  1803.         gstates chßpathgs€∑te lt { /ischarQath fa˚3e store } if
  1804.     } if
  1805.     grestore
  1806.     } bde    m    /c˛rpath { %def
  1807.     %¸need tÿÍmake sre thatwhen "s∂˚oke" or "fill"§Bomes aŒ!ng
  1808.     %     hat the"charpa8Ê" elemnts arefEn the %)ght plPce in t&Æ path.µy
  1809.     Ù- w–’tepath8checkg≥£ate
  1810.     /ipcharpa¡• true s\ore
  1811.     /Ωarpath‘µtate gsùates sQore
  1812.     /pÜhbooy exch sto•o
  1813.     /patuItr exch store
  1814. √è curreÚBpoin± } stoppe¶{ 0 0 ï if tÀruCTM
  1815.     /py†hY exc5‹stor… /pathX e—◊h store¬    pat·˚tr strinûRidth rmveto–]   } bde)µ    /neÍpath∑£ %def
  1816.      …I gst{tes 0 lW { /ischarath false stô~e } if
  1817.     Á  neÏpath
  1818.   Ù»} bdef
  1819.  
  1820. atd %aÃobe_dis⁄ ll
  1821. /setp≈ˇkingûwhere {dop setpacçing «8if
  1822. %%Efi$ProcSet: -isti‡À_paintıs 1.0
  1823.  
  1824. %%Iegin_ˇocSet:8_istill_guessfoëm 1.0
  1825. 0®tpacking where˜ˇ pop cÈïrentpavking tré® setpa€„ing } ~
  1826. /adob5ÏdistilÍØdup whqre { poJPpop }{œ˙65 200}hdd dâcdef } inelse
  1827. a:(be_disÙ6ll begI„
  1828.     /!uefinefo•t systeWdict / finefo¸$ get def
  1829.     /Jñfinefon W %def     % makäa dictΔonary into whicŒ%to putßÃhings
  1830.     % put tûG ORIGIØAL name of the int into
  1831. that dictionìry
  1832.     % put the original ùID in that dictionary, ≈or easy comparison
  1833.     dupãKFontType get 3 eq { %iÛ'lse
  1834.         dup bcgin
  1835.         i+æludeuserfonts ˚
  1836.             C`rrentdict writÌANY
  1837.          øë 1 index write¬NY (excA˙definefont pop) writeoüj        } if
  1838.         currenndict /NÕntInfo known {
  1839. &        / óntInfo 5 dict Èef
  1840.           zFontInfo begin™            /rea´ame 2 pndex ded            /plÀsemap –agicboo•õdef
  1841.         Ù“pleaseæap fals¨ hXdebo¶°
  1842.            ïend
  1843.         }©]f
  1844.         Önd
  1845.     }{∏†else
  1846.     zM  /Dfonä exch =˛ore
  1847.      ⁄This miPht be ãe firs2time we've eve7öseen aÈbew
  1848.      % Encodin A  If s≠ï letßs guess t˝qt we'ä5asee Mots
  1849.      % mI0e of t∂T vecor, and gëe it thë nam "stdvec"‡‘         \Üont &$«in
  1850.         %goœ FontTye 1 Ä˙ STDvec ’Cnum 0 eq andJˆ        –[Dvec cvnum 0q
  1851.         Encod¬ng SYandardE@»oding ne‰πnd {õ%if
  1852. m     ;Δ /STDvecAÊncod»[g hashencoding hqevalä⁄        fΡ(/stdvec<Ú) *w
  1853. itestri¸P
  1854.             STıvec
  1855. r    St`≠dardEncoding h)Àhencodflfig eq { %ifelse{Ó        fd (&9an˝ardncodingk *writ&tring
  1856.             }{@›el–e
  1857.     ÈEncodiËg writew)mearra
  1858.             & ifelseâ}        fd (def\nÍ *write]$ring
  1859.         µ   cheá†setup
  1860.     }{ %elsÃ
  1861.           —ñπgcr FoíºTypï 1 eq STDvΠcvnum ® eq and
  1862.             ÒåDvec c‚num 0 eq
  1863.             `≈coding]StandardEncoding ne and { %if
  1864.             /PAGEvec Encoding hashencoding hideval
  1865.             fd (/pagevec\n) *writestring
  1866.             PAGEvec
  1867.             StandardEncoding hashencoding eq { %ifelse
  1868.                 fd (StandardEncoding ) *writestring
  1869.             }{ %else
  1870.                 Encoding writenamearray
  1871.             } ifelse
  1872.             fd (def\n) *writestring
  1873.             checksetup
  1874.             } if
  1875.         } ifelse
  1876.         end¥     % try to find the "real" font in FontDirectory from which this
  1877.      % font was derived, assuming it was reencoded....
  1878.         /tem`fontname /Couâier store
  1879.         /tempfontname /UnKnownFont store
  1880.         FontDirectory { %forall
  1881.         /Ffont exch store /Fname exch store
  1882.         % if the font was already touched, ignore it:
  1883.         Ffont /FontInfo known { %ifelse
  1884.             Ffont /FontInfo get /realname known not
  1885.         }{ true } ifelse    % leaves boolean
  1886.         { % if
  1887.             % if UniqueID's match, grab it!
  1888.            ¢Dfont /UniqueID known Ffont /UniqueID known and {
  1889.             Dfont /UniqueID get Ffont /UniqueID get eq {
  1890.                 /tempfontname Fname store exit
  1891.             } if
  1892.             } if
  1893.         } if % /realname is not there
  1894.         } forall
  1895.         tempfontname /UnKnownFont eq { %if
  1896.           Dfont begin
  1897.         FontDirectory { %forall
  1898.           /Ffont exch store /Fname exch store
  1899.           % if CharStrings match, then compare FontMatrix.  If
  1900.           % FontMatrix matches or the *second* elements match,
  1901.           % (it might be oblique), then grab it.
  1902.           FontType 1 eq {
  1903.             Dfont/CharStrings known Ffont/CharStrings known and {
  1904.               Dfont/CharStrings get Ffont/CharStrings get eq {
  1905.             Dfont/FontMatrix known Ffont/FontMatrix known and {
  1906.               Dfont/FontMatrix get Ffont/FontMatrix get
  1907.               2 copy eq  3 1 roll
  1908.               2 get exch 2 get eq or {
  1909.                   /tempfontname Fname store exit
  1910.               } if
  1911.             } if
  1912.               } if
  1913.             } if
  1914.           } if
  1915.         } forall
  1916.           end
  1917.         } if
  1918.         tempfontname /UnKnownFont eq { %if
  1919.           FontDirectory { %forall
  1920.         /Ffont exch store /Fname exch store
  1921.           % if everything matches but some keys, grab it
  1922.           true    % start with "true" on stack
  1923.           Dfont { %forall
  1924.             exch dup /Encoding eq 1 index /FID eq or { %ifelse
  1925.             pop pop
  1926.             }{ % else
  1927.             dup Ffont exch known {
  1928.                 Ffont exch get ne { pop false exit } if
  1929.             }{ pop pop } ifelse
  1930.             } ifelse
  1931.           } forall
  1932.           % use either "true" that was there, or "false" from loop
  1933.           { %if
  1934.               /tempfontname Fname store exit
  1935.           } if
  1936.           } forall
  1937.         } if
  1938.          tempfontname /UnKnownFont eq {
  1939.         Dfont /Encoding get StandardEncoding eq
  1940.         substitutefonts or { %ifelse
  1941.           % If there is no comparable fontdict already there, and
  1942.           % if this is of FontType 1 and has StandardEncoding,
  1943.           % we guess that this is a downloadable font, and ignore it
  1944.             Dfont /FontName known {
  1945.             /tempfontname Dfont /FontName get store
  1946.             }{
  1947.             /tempfontname /Courier store
  1948.             } ifelse
  1949.             (%substituting ) wout tempfontname writename writeNL
  1950.             messages {
  1951.             (substituting: ) print tempfontname ==
  1952.             } if
  1953.             Dfont    % needed by *definefont below...
  1954.         }{ %else
  1955.             (ERROR: Couldn't find original fontdict to match: ) print
  1956.             Dfont /FontName get == flush
  1957.             (Fonts in FontDirectory include:) =
  1958.             FontDirectory { pop (\040) print == } forall flush
  1959.             stop
  1960.         } ifelse
  1961.         } if
  1962.         Dfont dup begin
  1963.         /FontInfo 5 dict def
  1964.         FontInfo begin
  1965.             /realname tempfontname def
  1966.             /pleasemap magicbool def
  1967.             /pleasemap
  1968.             tempfontname findfont /Encoding get
  1969.             StandardEncoding eq
  1970.             hidebool
  1971.         end
  1972.         end
  1973.     } ifelse
  1974.     *definefont
  1975.     } bdef
  1976.  
  1977. end %adobe_distill
  1978. /setpacking where { pop setpacking } if
  1979. %%EndProcSet: distill_guessfont 1.0
  1980.  
  1981. %%BeginProcSet: hacks 0.5
  1982.   % defeat the "transform round exch round exch itransform" trick:
  1983.     /round { } def
  1984.     /transform { dup type /arraytype eq { pop } if } bdef
  1985.     /itransform { dup type /arraytype eq { pop } if } bdef
  1986.   % redefine control-D:
  1987.     (\004) { (\n%%EOF) writeop } def
  1988. %%EndProcSet: hacks 0.5
  1989.  
  1990.